home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / dynodump / sparc / _relocate.c next >
Encoding:
C/C++ Source or Header  |  1995-07-08  |  7.8 KB  |  295 lines
  1. /*
  2.  *    Copyright (c) 1995 by Sun Microsystems, Inc.
  3.  *    All rights reserved.
  4.  *
  5.  * This source code is a product of Sun Microsystems, Inc. and is provided
  6.  * for unrestricted use provided that this legend is included on all tape
  7.  * media and as a part of the software program in whole or part.  Users
  8.  * may copy or modify this source code without charge, but are not authorized
  9.  * to license or distribute it to anyone else except as part of a product or
  10.  * program developed by the user.
  11.  *
  12.  * THIS PROGRAM CONTAINS SOURCE CODE COPYRIGHTED BY SUN MICROSYSTEMS, INC.
  13.  * SUN MICROSYSTEMS, INC., MAKES NO REPRESENTATIONS ABOUT THE SUITABLITY
  14.  * OF SUCH SOURCE CODE FOR ANY PURPOSE.  IT IS PROVIDED "AS IS" WITHOUT
  15.  * EXPRESS OR IMPLIED WARRANTY OF ANY KIND.  SUN MICROSYSTEMS, INC. DISCLAIMS
  16.  * ALL WARRANTIES WITH REGARD TO SUCH SOURCE CODE, INCLUDING ALL IMPLIED
  17.  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN
  18.  * NO EVENT SHALL SUN MICROSYSTEMS, INC. BE LIABLE FOR ANY SPECIAL, INDIRECT,
  19.  * INCIDENTAL, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
  20.  * FROM USE OF SUCH SOURCE CODE, REGARDLESS OF THE THEORY OF LIABILITY.
  21.  * 
  22.  * This source code is provided with no support and without any obligation on
  23.  * the part of Sun Microsystems, Inc. to assist in its use, correction, 
  24.  * modification or enhancement.
  25.  *
  26.  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  27.  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY THIS
  28.  * SOURCE CODE OR ANY PART THEREOF.
  29.  *
  30.  * Sun Microsystems, Inc.
  31.  * 2550 Garcia Avenue
  32.  * Mountain View, California 94043
  33.  */
  34.  
  35. /*
  36.  * Update the value of the `_edata' and `_end' symbols.
  37.  */
  38. #pragma ident    "@(#) $Id: _relocate.c,v 1.4 1995/06/26 20:13:26 georgn Exp $ - SMI"
  39.  
  40. #include    <libelf.h>
  41. #include    <string.h>
  42. #include    "machdep.h"
  43. #include    "_dynodump.h"
  44.  
  45.  
  46. #define    GETbyte(P)    ((long)((unsigned long)(P)[0]))
  47. #define    GEThalf(P)    ((long)(((unsigned long)(P)[0] << 8) | \
  48.                 ((unsigned long)(P)[1])))
  49. #define    GETword(P)    ((long)(((unsigned long)(P)[0] << 24) | \
  50.                 ((unsigned long)(P)[1] << 16) | \
  51.                 ((unsigned long)(P)[2] << 8) | \
  52.                 (unsigned long)(P)[3]))
  53. #define    GETdisp30(P)    (GETword(P) & 0x3fffffff)
  54. #define    GETdisp22(P)    (GETword(P) & 0x3fffff)
  55. #define    GETdisp16(P)    (((GETword(P) & 0x300000) >> 6) | \
  56.                 (GETword(P) & 0x3fff))
  57. #define    GETdisp19(P)    (GETword(P) & 0x7ffff)
  58. #define    GETimm22(P)    (GETword(P) & 0x3fffff)
  59. #define    GETimm5(P)    (GEThalf((P)+2) & 0x1f)
  60. #define    GETimm6(P)    (GEThalf((P)+2) & 0x2f)
  61. #define    GETimm7(P)    (GEThalf((P)+2) & 0x3f)
  62. #define    GETsimm13(P)    (GEThalf((P)+2) & 0x1fff)
  63. #define    GETsimm10(P)    (GEThalf((P)+2) & 0x3ff)
  64. #define    GETsimm11(P)    (GEThalf((P)+2) & 0x7ff)
  65. #define    GETplt22(P)    (GETword((P)+8) & 0x3fffff)
  66.  
  67. #define    PUTbyte(V, P)    (P)[0] = (V)
  68. #define    PUThalf(V, P)    (P)[0] = ((V) >> 8); \
  69.             (P)[1] = ((V))
  70. #define    PUTword(V, P)    (P)[0] = (unsigned char)((V) >> 24); \
  71.             (P)[1] = (unsigned char)((V) >> 16); \
  72.             (P)[2] = (unsigned char)((V) >> 8); \
  73.             (P)[3] = (unsigned char)(V)
  74. #define    PUTdisp30(V, P)    { \
  75.             unsigned long int temp; \
  76.             temp = GETword(P) & ~0x3fffffff; \
  77.             temp |= ((V) & 0x3fffffff); \
  78.             PUTword(temp, P); \
  79.             }
  80. #define    PUTdisp22(V, P)    { \
  81.             unsigned long int temp; \
  82.             temp = GETword(P) & ~0x3fffff; \
  83.             temp |= ((V) & 0x3fffff); \
  84.             PUTword(temp, P); \
  85.             }
  86. #define    PUTimm22(V, P)    { \
  87.             unsigned long int temp; \
  88.             temp = GETword(P) & ~0x3fffff; \
  89.             temp |= ((V) & 0x3fffff); \
  90.             PUTword(temp, P); \
  91.             }
  92. #define    PUTimm5(V, P)    { \
  93.             unsigned long int temp; \
  94.             temp = GEThalf(P+2) & ~0x1f; \
  95.             temp |= ((V) & 0x1f); \
  96.             PUThalf(temp, (P+2)); \
  97.             }
  98. #define    PUTimm6(V, P)    { \
  99.             unsigned long int temp; \
  100.             temp = GEThalf(P+2) & ~0x2f; \
  101.             temp |= ((V) & 0x2f); \
  102.             PUThalf(temp, (P+2)); \
  103.             }
  104. #define    PUTimm7(V, P)    { \
  105.             unsigned long int temp; \
  106.             temp = GEThalf(P+2) & ~0x3f; \
  107.             temp |= ((V) & 0x3f); \
  108.             PUThalf(temp, (P+2)); \
  109.             }
  110. #define    PUTsimm13(V, P)    { \
  111.             unsigned long int temp; \
  112.             temp = GEThalf(P+2) & ~0x1fff; \
  113.             temp |= ((V) & 0x1fff); \
  114.             PUThalf(temp, (P+2)); \
  115.             }
  116. #define    PUTplt22(V, P)    { \
  117.             unsigned long int temp; \
  118.             temp = GETword((P)+8) & ~0x3fffff; \
  119.             temp |= ((V) & 0x3fffff); \
  120.             PUTword(temp, ((P)+8)); \
  121.             }
  122. #define    PUTsimm10(V, P)    { \
  123.             unsigned long int temp; \
  124.             temp = GEThalf(P+2) & ~0x3ff; \
  125.             temp |= ((V) & 0x3ff); \
  126.             PUThalf(temp, (P+2)); \
  127.             }
  128. #define    PUTsimm11(V, P)    { \
  129.             unsigned long int temp; \
  130.             temp = GEThalf(P+2) & ~0x7ff; \
  131.             temp |= ((V) & 0x7ff); \
  132.             PUThalf(temp, (P+2)); \
  133.             }
  134. #define    PUTdisp16(V, P) { \
  135.             unsigned long int temp; \
  136.             temp = GETword(P) & ~0x303fff; \
  137.             temp |= ((V) & 0xc000) << 6; \
  138.             temp |= ((V) & 0x3fff); \
  139.             PUTword(temp, P); \
  140.             }
  141. #define    PUTdisp19(V, P)    { \
  142.             unsigned long int temp; \
  143.             temp = GETword(P) & ~0x7ffff; \
  144.             temp |= ((V) & 0x7ffff); \
  145.             PUTword(temp, P); \
  146.             }
  147.  
  148. static void
  149. move_reloc(unsigned char * iaddr, unsigned char * oaddr, unsigned char type)
  150. {
  151.     switch (type) {
  152.     case R_SPARC_8:
  153.     case R_SPARC_DISP8:
  154.     PUTbyte(GETbyte(iaddr), oaddr);
  155.     break;
  156.  
  157.     case R_SPARC_16:
  158.     case R_SPARC_DISP16:
  159.     PUThalf(GEThalf(iaddr), oaddr);
  160.     break;
  161.  
  162.     case R_SPARC_32:
  163.     case R_SPARC_DISP32:
  164.     case R_SPARC_GLOB_DAT:
  165.     case R_SPARC_RELATIVE:
  166.     case R_SPARC_UA32:
  167.     PUTword(GETword(iaddr), oaddr);
  168.     break;
  169.  
  170.     case R_SPARC_WDISP30:
  171.     case R_SPARC_WPLT30:
  172.     PUTdisp30(GETdisp30(iaddr), oaddr);
  173.     break;
  174.  
  175.     case R_SPARC_WDISP22:
  176.     case R_SPARC_PC22:
  177.     PUTdisp22(GETdisp22(iaddr), oaddr);
  178.     break;
  179.  
  180.     case R_SPARC_HI22:
  181.     case R_SPARC_GOT22:
  182.     case R_SPARC_22:
  183.     PUTimm22(GETimm22(iaddr), oaddr);
  184.     break;
  185.  
  186.     case R_SPARC_13:
  187.     case R_SPARC_GOT13:
  188.     PUTsimm13(GETsimm13(iaddr), oaddr);
  189.     break;
  190.  
  191.     case R_SPARC_LO10:
  192.     case R_SPARC_GOT10:
  193.     case R_SPARC_PC10:
  194. #ifdef R_SPARC_10
  195.     case R_SPARC_10:
  196. #endif
  197.     PUTsimm10(GETsimm10(iaddr), oaddr);
  198.     break;
  199.  
  200. #ifdef R_SPARC_11
  201.     case R_SPARC_11:
  202.     PUTsimm11(GETsimm11(iaddr), oaddr);
  203.     break;
  204. #endif
  205.  
  206. #ifdef R_SPARC_WDISP16
  207.     case R_SPARC_WDISP16:
  208.     PUTdisp16(GETdisp16(iaddr), oaddr);
  209.     break;
  210. #endif
  211.  
  212. #ifdef R_SPARC_WDISP19
  213.     case R_SPARC_WDISP19:
  214.     PUTdisp19(GETdisp19(iaddr), oaddr);
  215.     break;
  216. #endif
  217.  
  218. #ifdef R_SPARC_5
  219.     case R_SPARC_5:
  220.     PUTimm5(GETimm5(iaddr), oaddr);
  221.     break;
  222. #endif
  223.  
  224. #ifdef R_SPARC_6
  225.     case R_SPARC_6:
  226.     PUTimm6(GETimm6(iaddr), oaddr);
  227.     break;
  228. #endif
  229.  
  230. #ifdef R_SPARC_7
  231.     case R_SPARC_7:
  232.     PUTimm7(GETimm7(iaddr), oaddr);
  233.     break;
  234. #endif
  235.  
  236.     default:
  237.     break;
  238.     }
  239. }
  240.  
  241. void
  242. update_reloc(Cache *ocache, Cache *_ocache,
  243.          Cache *icache, Cache *_icache,
  244.          Half shnum)
  245. {
  246.     Shdr *shdr;
  247.     Rel *rels;
  248.     int    reln, cnt;
  249.     Cache *orcache, *ircache;
  250.  
  251.     /*
  252.      * Set up to read the output relocation table.
  253.      */
  254.     shdr = _ocache->c_shdr;
  255.     rels = (Rel *)_ocache->c_data->d_buf;
  256.     reln = shdr->sh_size / shdr->sh_entsize;
  257.  
  258.     /*
  259.      * Determine the section that is being relocated.
  260.      */
  261.     orcache = &ocache[shdr->sh_info];
  262.     shdr = _icache->c_shdr;
  263.     ircache = &icache[shdr->sh_info];
  264.  
  265.     /*
  266.      * Loop through the relocation table.
  267.      */
  268.     for (cnt = 0; cnt < reln; cnt++, rels++) {
  269.     unsigned char *iaddr, *oaddr;
  270.     Addr off;
  271.     unsigned char type = ELF_R_TYPE(rels->r_info);
  272.  
  273.     /*
  274.      * Ignore some relocations as these can safely be carried out
  275.      * twice (they simply override any existing data).  In fact,
  276.      * some relocations like __iob's copy relocation must be carried
  277.      * out each time the process restarts otherwise stdio blows up.
  278.      */
  279.     if ((type == R_SPARC_COPY) || (type == R_SPARC_JMP_SLOT) ||
  280.         (type == R_SPARC_NONE))
  281.         continue;
  282.  
  283.     /*
  284.      * If we are required to restore the relocation location
  285.      * to it's value prior to relocation, then read the
  286.      * locations original contents from the input image and
  287.      * copy it to the output image.
  288.      */
  289.     off = rels->r_offset - ircache->c_shdr->sh_addr;
  290.     iaddr = (unsigned char *)ircache->c_data->d_buf + off;
  291.     oaddr = (unsigned char *)orcache->c_data->d_buf + off;
  292.     move_reloc(iaddr, oaddr, type);
  293.     }
  294. }
  295.